home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 November / CHIP Kasım 1998.iso / emulators / atari2600 / stelw07aw95.exe / stella.exe / DEF / 470
Text File  |  1997-07-31  |  41KB  |  1,559 lines
  1. "VCS-Script
  2. ;;============================================================================
  3. ;;
  4. ;;    SSSS    tt          lll  lll              
  5. ;;   SS  SS   tt           ll   ll                
  6. ;;   SS     tttttt  eeee   ll   ll   aaaa    "An Atari 2600 VCS Emulator"
  7. ;;    SSSS    tt   ee  ee  ll   ll      aa      
  8. ;;       SS   tt   eeeeee  ll   ll   aaaaa   Copyright (c) 1995,1996,1997
  9. ;;   SS  SS   tt   ee      ll   ll  aa  aa         Bradford W. Mott
  10. ;;    SSSS     ttt  eeeee llll llll  aaaaa    
  11. ;;
  12. ;;============================================================================
  13. ;;
  14. ;; Stella's default VCS-Script file
  15. ;;
  16. ;; @author  Bradford W. Mott
  17. ;; @version $Id: stella.vcs,v 1.2 1997/06/07 00:46:00 bwmott Exp $
  18. ;;
  19. ;;============================================================================
  20.  
  21. (begin
  22.   ;;
  23.   ;; Reasonable defaults to be used by every cartridge.  Changing
  24.   ;; these is NOT a good idea!
  25.   ;;
  26.   (set! TIA.PlayerDelay "1")
  27.   (set! Timer.Adjustment "0")
  28.   (set! Display.FrameRate "60")
  29.   (set! Display.XStart "0")
  30.   (set! Display.Width "160")
  31.   (set! Display.YStart "38")
  32.   (set! Display.Height "210")
  33.   (set! Console.LeftDifficulty "B")
  34.   (set! Console.RightDifficulty "B")
  35.   (set! Console.TelevisionType "Color")
  36.   (set! Controller.Paddle0 "None")
  37.   (set! Controller.Paddle1 "None")
  38.   (set! Controller.Paddle2 "None")
  39.   (set! Controller.Paddle3 "None")
  40.   (set! Controller.Joystick0 "0")
  41.   (set! Controller.Joystick1 "1")
  42.  
  43.   ;;
  44.   ;; Set the paddles for known paddle games
  45.   ;;
  46.   (if (member Cartridge.Id '("082d4cde", "1de165ce"))
  47.     (begin
  48.       (set! Controller.Paddle0 "0")
  49.       (set! Controller.Paddle1 "1")
  50.       (set! Controller.Paddle2 "2")
  51.       (set! Controller.Paddle3 "3")
  52.       (set! Controller.Joystick0 "None")
  53.       (set! Controller.Joystick1 "None")))
  54.   
  55.   ;;
  56.   ;; Properties for Adventure
  57.   ;;
  58.   (if (member Cartridge.Id '("7decb903"))
  59.     (begin
  60.       (set! Cartridge.Name "Adventure")
  61.       (set! Cartridge.Type "4K")
  62.       (set! Display.YStart "37")
  63.       (set! Display.Height "192")
  64.       (set! Controller.Joystick1 "None")))
  65.  
  66.   ;;
  67.   ;; Properties for Adventures of Tron
  68.   ;;
  69.   (if (member Cartridge.Id '("b7e0d81b"))
  70.     (begin
  71.       (set! Cartridge.Name "Adventures of Tron")
  72.       (set! Cartridge.Type "4K")
  73.       (set! Display.YStart "46")
  74.       (set! Display.Height "180")))
  75.  
  76.   ;;
  77.   ;; Properties for Air-Sea Battle
  78.   ;;
  79.   (if (member Cartridge.Id '("14deb512"))
  80.     (begin
  81.       (set! Cartridge.Name "Air-Sea Battle")
  82.       (set! Cartridge.Type "2K")
  83.       (set! Display.FrameRate "30")
  84.       (set! Display.YStart "39")
  85.       (set! Display.Height "200")))
  86.  
  87.   ;;
  88.   ;; Properties for Alien
  89.   ;;
  90.   (if (member Cartridge.Id '("dc98b81b"))
  91.     (begin
  92.       (set! Cartridge.Name "Alien")
  93.       (set! Cartridge.Type "4K")
  94.       (set! Display.FrameRate "60")
  95.       (set! Display.XStart "16")
  96.       (set! Display.Width "128")
  97.       (set! Display.YStart "39")
  98.       (set! Display.Height "188")))
  99.  
  100.   ;;
  101.   ;; Properties for Amidar
  102.   ;;
  103.   (if (member Cartridge.Id '("0c3fbf76"))
  104.     (begin
  105.       (set! Cartridge.Name "Amidar")
  106.       (set! Cartridge.Type "4K")
  107.       (set! Display.XStart "4")
  108.       (set! Display.Width "152")
  109.       (set! Display.YStart "40")
  110.       (set! Display.Height "182")
  111.       (set! Console.LeftDifficulty "A")
  112.       (set! Console.RightDifficulty "A")
  113.       (set! Controller.Joystick1 "None")))
  114.  
  115.   ;;
  116.   ;; Properties for Asteroids (There are two versions of Asteroids)
  117.   ;;
  118.   (if (member Cartridge.Id '("37c85b62" "37c85b6b"))
  119.     (begin
  120.       (set! Cartridge.Name "Asteroids")
  121.       (set! Cartridge.Type "F8")
  122.       (set! Display.YStart "37")
  123.       (set! Display.Height "192")))
  124.  
  125.   ;;
  126.   ;; Properties for Atari Video Cube
  127.   ;;
  128.   (if (member Cartridge.Id '("39550aa2"))
  129.     (begin
  130.       (set! Cartridge.Name "Atari Video Cube")
  131.       (set! Cartridge.Type "4K")
  132.       (set! Display.FrameRate "60")
  133.       (set! Display.YStart "38")
  134.       (set! Display.Height "200")))
  135.  
  136.   ;;
  137.   ;; Properties for Atlantis
  138.   ;;
  139.   (if (member Cartridge.Id '("b26ae745"))
  140.     (begin
  141.       (set! Cartridge.Name "Atlantis")
  142.       (set! Cartridge.Type "4K")
  143.       (set! Display.FrameRate "20")
  144.       (set! Display.YStart "49")
  145.       (set! Display.Height "185")))
  146.  
  147.   ;;
  148.   ;; Properties for Aquaventure
  149.   ;;
  150.   (if (member Cartridge.Id '("ac268ac3"))
  151.     (begin
  152.       (set! Cartridge.Name "Aquaventure")
  153.       (set! Cartridge.Type "F8")
  154.       (set! Display.FrameRate "60")
  155.       (set! Display.YStart "35")
  156.       (set! Display.Height "200")))
  157.  
  158.   ;;
  159.   ;; Properties for Armor Ambush
  160.   ;;
  161.   (if (member Cartridge.Id '("bf013757"))
  162.     (begin
  163.       (set! Cartridge.Name "Armor Ambush")
  164.       (set! Cartridge.Type "4K")
  165.       (set! Display.FrameRate "60")
  166.       (set! Display.YStart "37")
  167.       (set! Display.Height "192")))
  168.  
  169.   ;;
  170.   ;; Properties for Barnstorming
  171.   ;;
  172.   (if (member Cartridge.Id '("ea41b2f5"))
  173.     (begin
  174.       (set! Cartridge.Name "Barnstorming")
  175.       (set! Cartridge.Type "4K")
  176.       (set! Display.FrameRate "30")
  177.       (set! Display.XStart "8")
  178.       (set! Display.Width "152")
  179.       (set! Display.YStart "42")
  180.       (set! Display.Height "190")))
  181.  
  182.   ;;
  183.   ;; Properties for Battle Zone
  184.   ;;
  185.   (if (member Cartridge.Id '("a90c5f1b"))
  186.     (begin
  187.       (set! Cartridge.Name "Battle Zone")
  188.       (set! Cartridge.Type "F8")
  189.       (set! Display.XStart "4")
  190.       (set! Display.Width "152")
  191.       (set! Display.YStart "32")
  192.       (set! Display.Height "200")))
  193.  
  194.   ;;
  195.   ;; Properties for Berzerk
  196.   ;;
  197.   (if (member Cartridge.Id '("bc2a8e33"))
  198.     (begin
  199.       (set! Cartridge.Name "Berzerk")
  200.       (set! Cartridge.Type "4K")
  201.       (set! Display.FrameRate "20")
  202.       (set! Display.XStart "4")
  203.       (set! Display.Width "152")
  204.       (set! Display.YStart "38")
  205.       (set! Display.Height "188")))
  206.  
  207.   ;;
  208.   ;; Properties for Boing!
  209.   ;;
  210.   (if (member Cartridge.Id '("89aea67f"))
  211.     (begin
  212.       (set! Cartridge.Name "Boing!")
  213.       (set! Cartridge.Type "4K")
  214.       (set! Display.FrameRate "60")
  215.       (set! Display.YStart "40")
  216.       (set! Display.Height "184")))
  217.  
  218.   ;;
  219.   ;; Properties for Bump 'n Jump
  220.   ;;
  221.   (if (member Cartridge.Id '("ffffff00"))
  222.     (begin
  223.       (set! Cartridge.Name "Bump 'n Jump")
  224.       (set! Cartridge.Type "E7")
  225.       (set! Display.YStart "41")
  226.       (set! Display.Height "188")))
  227.  
  228.   ;;
  229.   ;; Properties for Burgertime
  230.   ;;
  231.   (if (member Cartridge.Id '("d439a04a"))
  232.     (begin
  233.       (set! Cartridge.Name "Burgertime")
  234.       (set! Cartridge.Type "E7")
  235.       (set! Display.YStart "31")
  236.       (set! Display.Height "180")))
  237.  
  238.   ;;
  239.   ;; Properties for California Games
  240.   ;;
  241.   (if (member Cartridge.Id '("8f1f8c3a"))
  242.     (begin
  243.       (set! Cartridge.Name "California Games")
  244.       (set! Cartridge.Type "F6")
  245.       (set! Display.FrameRate "20")
  246.       (set! Display.XStart "8")
  247.       (set! Display.Width "144")
  248.       (set! Display.YStart "43")
  249.       (set! Display.Height "192")))
  250.  
  251.   ;;
  252.   ;; Properties for Cat & Mouse
  253.   ;;
  254.   (if (member Cartridge.Id '("f0bf3017"))
  255.     (begin
  256.       (set! Cartridge.Name "Cat & Mouse")
  257.       (set! Cartridge.Type "4K")
  258.       (set! Display.FrameRate "60")
  259.       (set! Display.YStart "33")
  260.       (set! Display.Height "200")))
  261.  
  262.   ;;
  263.   ;;
  264.   ;; Properties for Centipede
  265.   ;;
  266.   (if (member Cartridge.Id '("4728d21c"))
  267.     (begin
  268.       (set! Cartridge.Name "Centipede")
  269.       (set! Cartridge.Type "F8")
  270.       (set! Display.XStart "8")
  271.       (set! Display.Width "144")
  272.       (set! Display.YStart "39")
  273.       (set! Display.Height "192")))
  274.  
  275.   ;;
  276.   ;; Properties for China Syndrome 
  277.   ;;
  278.   (if (member Cartridge.Id '("6c0fcb18"))
  279.     (begin
  280.       (set! Cartridge.Name "China Syndrome")
  281.       (set! Cartridge.Type "4K")
  282.       (set! Display.FrameRate "60")
  283.       (set! Display.YStart "32")
  284.       (set! Display.Height "207")))
  285.  
  286.   ;;
  287.   ;; Properties for Chopper Command
  288.   ;;
  289.   (if (member Cartridge.Id '("a92baade"))
  290.     (begin
  291.       (set! Cartridge.Name "Chopper Command")
  292.       (set! Cartridge.Type "4K")
  293.       (set! Display.FrameRate "30")
  294.       (set! Display.XStart "8")
  295.       (set! Display.Width "152")
  296.       (set! Display.YStart "49")
  297.       (set! Display.Height "183")))
  298.  
  299.   ;;
  300.   ;; Properties for Circus Atari
  301.   ;;
  302.   (if (member Cartridge.Id '("0cbeaffc"))
  303.     (begin
  304.       (set! Cartridge.Name "Circus Atari")
  305.       (set! Cartridge.Type "4K")
  306.       (set! Display.YStart "42")
  307.       (set! Display.Height "190")
  308.       (set! Controller.Joystick0 "None")
  309.       (set! Controller.Joystick1 "None")
  310.       (set! Controller.Paddle0 "0")
  311.       (set! Controller.Paddle1 "0")))
  312.  
  313.   ;;
  314.   ;; Properties for Combat
  315.   ;;
  316.   (if (member Cartridge.Id '("aa3da876"))
  317.     (begin
  318.       (set! Cartridge.Name "Combat")
  319.       (set! Cartridge.Type "2K")
  320.       (set! Display.YStart "39")
  321.       (set! Display.Height "206")))
  322.  
  323.   ;;
  324.   ;; Properties for Commando
  325.   ;;
  326.   (if (member Cartridge.Id '("b425dd86"))
  327.     (begin
  328.       (set! Cartridge.Name "Commando")
  329.       (set! Cartridge.Type "F6")
  330.       (set! Display.XStart "8")
  331.       (set! Display.Width "152")
  332.       (set! Display.YStart "47")
  333.       (set! Display.Height "180")))
  334.  
  335.   ;;
  336.   ;; Properties for Cosmic Ark
  337.   ;;
  338.   (if (member Cartridge.Id '("ed9a0a9d"))
  339.     (begin
  340.       (set! Cartridge.Name "Cosmic Ark")
  341.       (set! Cartridge.Type "4K")
  342.       (set! Display.FrameRate "60")
  343.       (set! Display.YStart "42")
  344.       (set! Display.Height "192")))
  345.   ;;
  346.   ;; Properties for Cosmic Commuter 
  347.   ;;
  348.   (if (member Cartridge.Id '("f79948eb"))
  349.     (begin
  350.       (set! Cartridge.Name "Cosmic Commuter")
  351.       (set! Cartridge.Type "4K")
  352.       (set! Display.FrameRate "60")
  353.       (set! Display.XStart "8")
  354.       (set! Display.Width "152")
  355.       (set! Display.YStart "37")
  356.       (set! Display.Height "192")))
  357.  
  358.   ;;
  359.   ;; Properties for Crystal Castles
  360.   ;;
  361.   (if (member Cartridge.Id '("3ac7e72e"))
  362.     (begin
  363.       (set! Cartridge.Name "Crystal Castles")
  364.       (set! Cartridge.Type "F6SC")
  365.       (set! Display.XStart "8")
  366.       (set! Display.Width "144")
  367.       (set! Display.YStart "50")
  368.       (set! Display.Height "174")))
  369.  
  370.   ;;
  371.   ;; Properties for Dark Cavern
  372.   ;;
  373.   (if (member Cartridge.Id '("af7f7bd9"))
  374.     (begin
  375.       (set! Cartridge.Name "Dark Cavern")
  376.       (set! Cartridge.Type "4K")
  377.       (set! Display.YStart "41")
  378.       (set! Display.Height "189")))
  379.  
  380.   ;;
  381.   ;;
  382.   ;; Properties for Dark Chambers
  383.   ;;
  384.   (if (member Cartridge.Id '("4082cb1d"))
  385.     (begin
  386.       (set! Cartridge.Name "Dark Chambers")
  387.       (set! Cartridge.Type "F6SC")
  388.       (set! Display.YStart "48")
  389.       (set! Display.Height "170")))
  390.  
  391.   ;;
  392.   ;; Properties for Defender II
  393.   ;;
  394.   (if (member Cartridge.Id '("9f99ada9"))
  395.     (begin
  396.       (set! Cartridge.Name "Defender II")
  397.       (set! Cartridge.Type "F8SC")
  398.       (set! Display.XStart "8")
  399.       (set! Display.Width "152")
  400.       (set! Display.YStart "37")
  401.       (set! Display.Height "190")))
  402.  
  403.   ;;
  404.   ;; Properties for Demon Attack
  405.   ;;
  406.   (if (member Cartridge.Id '("aaffed7c"))
  407.     (begin
  408.       (set! Cartridge.Name "Demon Attack")
  409.       (set! Cartridge.Type "4K")
  410.       (set! Display.YStart "39")
  411.       (set! Display.Height "194")))
  412.  
  413.   ;;
  414.   ;; Properties for Dig Dug
  415.   ;;
  416.   (if (member Cartridge.Id '("15dd4774"))
  417.     (begin
  418.       (set! Cartridge.Name "Dig Dug")
  419.       (set! Cartridge.Type "F6SC")
  420.       (set! Display.XStart "8")
  421.       (set! Display.Width "144")
  422.       (set! Display.YStart "33")
  423.       (set! Display.Height "193")))
  424.  
  425.   ;;
  426.   ;; Properties for Double Dragon
  427.   ;;
  428.   (if (member Cartridge.Id '("1ba76289"))
  429.     (begin
  430.       (set! Cartridge.Name "Double Dragon")
  431.       (set! Cartridge.Type "F6")
  432.       (set! Display.FrameRate "30")
  433.       (set! Display.XStart "8")
  434.       (set! Display.Width "152")
  435.       (set! Display.YStart "68")
  436.       (set! Display.Height "190")))
  437.  
  438.   ;;
  439.   ;; Properties for Dragon Fire
  440.   ;;
  441.   (if (member Cartridge.Id '("1b8fa9e3"))
  442.     (begin
  443.       (set! Cartridge.Name "Dragon Fire")
  444.       (set! Cartridge.Type "4K")
  445.       (set! Display.YStart "38")
  446.       (set! Display.Height "191")))
  447.  
  448.   ;;
  449.   ;; Properties for Elk Attack
  450.   ;;
  451.   (if (member Cartridge.Id '("82c2dec3"))
  452.     (begin
  453.       (set! Cartridge.Name "Elk Attack")
  454.       (set! Cartridge.Type "F8")
  455.       (set! Display.XStart "8")
  456.       (set! Display.Width "144")
  457.       (set! Display.YStart "37")
  458.       (set! Display.Height "194")))
  459.  
  460.   ;;
  461.   ;; Properties for Enduro
  462.   ;;
  463.   (if (member Cartridge.Id '("c60141d1"))
  464.     (begin
  465.       (set! Cartridge.Name "Enduro")
  466.       (set! Cartridge.Type "4K")
  467.       (set! Display.FrameRate "20")
  468.       (set! Display.XStart "12")
  469.       (set! Display.Width "140")
  470.       (set! Display.YStart "64")
  471.       (set! Display.Height "175")))
  472.  
  473.   ;;
  474.   ;; Properties for Espial
  475.   ;;
  476.   (if (member Cartridge.Id '("a697ba1d"))
  477.     (begin
  478.       (set! Cartridge.Name "Espial")
  479.       (set! Cartridge.Type "3F")
  480.       (set! Display.YStart "76")
  481.       (set! Display.Height "196")))
  482.  
  483.   ;;
  484.   ;; Properties for F-14 Tomcat
  485.   ;;
  486.   (if (member Cartridge.Id '("43694260"))
  487.     (begin
  488.       (set! Cartridge.Name "F-14 Tomcat")
  489.       (set! Cartridge.Type "F6")
  490.       (set! Display.XStart "8")
  491.       (set! Display.Width "152")
  492.       (set! Display.YStart "56")
  493.       (set! Display.Height "196")))
  494.  
  495.   ;;
  496.   ;; Properties for Fast Eddie
  497.   ;;
  498.   (if (member Cartridge.Id '("2765ce9f"))
  499.     (begin
  500.       (set! Cartridge.Name "Fast Eddie")
  501.       (set! Cartridge.Type "4K")
  502.       (set! Display.YStart "38")
  503.       (set! Display.Height "198")))
  504.  
  505.   ;;
  506.   ;; Properties for Fatal Run
  507.   ;;
  508.   (if (member Cartridge.Id '("b0112cc9"))
  509.     (begin
  510.       (set! Cartridge.Name "Fatal Run")
  511.       (set! Cartridge.Type "F4SC")
  512.       (set! Display.XStart "8")
  513.       (set! Display.Width "152")
  514.       (set! Display.YStart "70")
  515.       (set! Display.Height "178")))
  516.  
  517.   ;;
  518.   ;; Properties for Freeway
  519.   ;;
  520.   (if (member Cartridge.Id '("9a30b74b"))
  521.     (begin
  522.       (set! Cartridge.Name "Freeway")
  523.       (set! Cartridge.Type "2K")
  524.       (set! Display.FrameRate "30")
  525.       (set! Display.XStart "8")
  526.       (set! Display.Width "144")
  527.       (set! Display.YStart "38")
  528.       (set! Display.Height "200")))
  529.  
  530.   ;;
  531.   ;; Properties for Frogger
  532.   ;;
  533.   (if (member Cartridge.Id '("9629f615"))
  534.     (begin
  535.       (set! Cartridge.Name "Frogger")
  536.       (set! Cartridge.Type "4K")
  537.       (set! Display.XStart "4")
  538.       (set! Display.Width "152")
  539.       (set! Display.YStart "34")
  540.       (set! Display.Height "191")))
  541.  
  542.   ;;
  543.   ;; Properties for Frogger II
  544.   ;;
  545.   (if (member Cartridge.Id '("84b60c35"))
  546.     (begin
  547.       (set! Cartridge.Name "Frogger II")
  548.       (set! Cartridge.Type "E0")
  549.       (set! Display.XStart "8")
  550.       (set! Display.Width "144")
  551.       (set! Display.YStart "40")
  552.       (set! Display.Height "194")))
  553.  
  554.   ;;
  555.   ;; Properties for Galaxian
  556.   ;;
  557.   (if (member Cartridge.Id '("074b2bc6"))
  558.     (begin
  559.       (set! Cartridge.Name "Galaxian")
  560.       (set! Cartridge.Type "F8")
  561.       (set! Display.XStart "8")
  562.       (set! Display.Width "144")
  563.       (set! Display.YStart "36")
  564.       (set! Display.Height "194")))
  565.  
  566.   ;;
  567.   ;; Properties for Grand Prix
  568.   ;;
  569.   (if (member Cartridge.Id '("3062eea5"))
  570.     (begin
  571.       (set! Cartridge.Name "Grand Prix")
  572.       (set! Cartridge.Type "4K")
  573.       (set! Display.FrameRate "30")
  574.       (set! Display.XStart "8")
  575.       (set! Display.Width "152")
  576.       (set! Display.YStart "46")
  577.       (set! Display.Height "189")))
  578.  
  579.   ;;
  580.   ;; Properties for Gravitar
  581.   ;;
  582.   (if (member Cartridge.Id '("d5147aca"))
  583.     (begin
  584.       (set! Cartridge.Name "Gravitar")
  585.       (set! Cartridge.Type "F8")
  586.       (set! Display.YStart "37")
  587.       (set! Display.Height "192")))
  588.  
  589.   ;;
  590.   ;; Properties for H.E.R.O.
  591.   ;;
  592.   (if (member Cartridge.Id '("865854b8"))
  593.     (begin
  594.       (set! Cartridge.Name "H.E.R.O.")
  595.       (set! Cartridge.Type "F8")
  596.       (set! Display.YStart "49")
  597.       (set! Display.Height "190")))
  598.  
  599.   ;;
  600.   ;; Properties for Haunted House
  601.   ;;
  602.   (if (member Cartridge.Id '("acfa212f"))
  603.     (begin
  604.       (set! Cartridge.Name "Haunted House")
  605.       (set! Cartridge.Type "4K")
  606.       (set! Display.FrameRate "30")
  607.       (set! Display.XStart "8")
  608.       (set! Display.Width "152")
  609.       (set! Display.YStart "38")
  610.       (set! Display.Height "184")))
  611.  
  612.   ;;
  613.   ;; Properties for He-Man: Masters of the Universe
  614.   ;;
  615.   (if (member Cartridge.Id '("c3af1519"))
  616.     (begin
  617.       (set! Cartridge.Name "He-Man: Masters of the Universe")
  618.       (set! Cartridge.Type "E7")
  619.       (set! Display.FrameRate "60")
  620.       (set! Display.XStart "0")
  621.       (set! Display.Width "160")
  622.       (set! Display.YStart "38")
  623.       (set! Display.Height "185")
  624.       (set! TIA.PlayerDelay "4")))
  625.  
  626.   ;;
  627.   ;; Properties for Joust
  628.   ;;
  629.   (if (member Cartridge.Id '("39765c97"))
  630.     (begin
  631.       (set! Cartridge.Name "Joust")
  632.       (set! Cartridge.Type "F8")
  633.       (set! Display.XStart "8")
  634.       (set! Display.Width "144")
  635.       (set! Display.YStart "39")
  636.       (set! Display.Height "200")))
  637.  
  638.   ;;
  639.   ;; Properties for Jr. Pac-man
  640.   ;;
  641.   (if (member Cartridge.Id '("4f081240"))
  642.     (begin
  643.       (set! Cartridge.Name "Jr. Pac-man")
  644.       (set! Cartridge.Type "F6SC")
  645.       (set! Display.YStart "49")
  646.       (set! Display.Height "170")))
  647.  
  648.   ;;
  649.   ;; Properties for Jungle Hunt
  650.   ;;
  651.   (if (member Cartridge.Id '("539b6f75"))
  652.     (begin
  653.       (set! Cartridge.Name "Jungle Hunt")
  654.       (set! Cartridge.Type "F8")
  655.       (set! Display.FrameRate "20")
  656.       (set! Display.XStart "8")
  657.       (set! Display.Width "152")
  658.       (set! Display.YStart "40")
  659.       (set! Display.Height "190")))
  660.  
  661.   ;;
  662.   ;; Properties for KABOOM!
  663.   ;;
  664.   (if (member Cartridge.Id '("43b1d6ab"))
  665.     (begin
  666.       (set! Cartridge.Name "KABOOM!")
  667.       (set! Cartridge.Type "2K")
  668.       (set! Display.XStart "8")
  669.       (set! Display.Width "144")
  670.       (set! Display.YStart "41")
  671.       (set! Display.Height "192")
  672.       (set! Controller.Joystick0 "None")
  673.       (set! Controller.Joystick1 "None")
  674.       (set! Controller.Paddle0 "0")
  675.       (set! Controller.Paddle1 "0")))
  676.  
  677.   ;;
  678.   ;; Properties for Kung Fu
  679.   ;;
  680.   (if (member Cartridge.Id '("761f1da4"))
  681.     (begin
  682.       (set! Cartridge.Name "Kung Fu")
  683.       (set! Cartridge.Type "F8")
  684.       (set! Display.FrameRate "30")
  685.       (set! Display.XStart "8")
  686.       (set! Display.Width "152")
  687.       (set! Display.YStart "42")
  688.       (set! Display.Height "192")))
  689.  
  690.   ;;
  691.   ;; Properties for Laser Volley
  692.   ;;
  693.   (if (member Cartridge.Id '("e9f4261d"))
  694.     (begin
  695.       (set! Cartridge.Name "Laser Volley")
  696.       (set! Cartridge.Type "4K")
  697.       (set! Display.YStart "34")
  698.       (set! Display.Height "188")))
  699.  
  700.   ;;
  701.   ;; Properties for M.A.D.
  702.   ;;
  703.   (if (member Cartridge.Id '("77dead0b"))
  704.     (begin
  705.       (set! Cartridge.Name "M.A.D.")
  706.       (set! Cartridge.Type "4K")
  707.       (set! Display.YStart "44")
  708.       (set! Display.Height "192")))
  709.  
  710.   ;;
  711.   ;; Properties for Mega Force
  712.   ;;
  713.   (if (member Cartridge.Id '("96e38119"))
  714.     (begin
  715.       (set! Cartridge.Name "Mega Force")
  716.       (set! Cartridge.Type "4K")
  717.       (set! Display.XStart "8")
  718.       (set! Display.Width "144")
  719.       (set! Display.YStart "38")
  720.       (set! Display.Height "192")))
  721.  
  722.   ;;
  723.   ;; Properties for Megamania
  724.   ;;
  725.   (if (member Cartridge.Id '("24dea17b"))
  726.     (begin
  727.       (set! Cartridge.Name "Megamania")
  728.       (set! Cartridge.Type "4K")
  729.       (set! Display.FrameRate "30")
  730.       (set! Display.XStart "8")
  731.       (set! Display.Width "144")
  732.       (set! Display.YStart "43")
  733.       (set! Display.Height "192")))
  734.  
  735.   ;;
  736.   ;; Properties for Midnight Magic
  737.   ;;
  738.   (if (member Cartridge.Id '("e352879a"))
  739.     (begin
  740.       (set! Cartridge.Name "Midnight Magic")
  741.       (set! Cartridge.Type "F6")
  742.       (set! Display.XStart "8")
  743.       (set! Display.Width "144")
  744.       (set! Display.YStart "37")
  745.       (set! Display.Height "200")))
  746.  
  747.   ;;
  748.   ;; Properties for Millipede
  749.   ;;
  750.   (if (member Cartridge.Id '("97b24109"))
  751.     (begin
  752.       (set! Cartridge.Name "Millipede")
  753.       (set! Cartridge.Type "F6SC")
  754.       (set! Display.XStart "8")
  755.       (set! Display.Width "144")
  756.       (set! Display.YStart "39")
  757.       (set! Display.Height "192")))
  758.  
  759.   ;;
  760.   ;; Properties for Miner 2049'er
  761.   ;;
  762.   (if (member Cartridge.Id '("28cf8fc8"))
  763.     (begin
  764.       (set! Cartridge.Name "Miner 2049'er")
  765.       (set! Cartridge.Type "3F")
  766.       (set! Display.XStart "8")
  767.       (set! Display.Width "144")
  768.       (set! Display.YStart "30")
  769.       (set! Display.Height "216")))
  770.  
  771.   ;;
  772.   ;; Properties for Miner 2049'er Volume ][
  773.   ;;
  774.   (if (member Cartridge.Id '("28c3ba95"))
  775.     (begin
  776.       (set! Cartridge.Name "Miner 2049'er Volume ][")
  777.       (set! Cartridge.Type "3F")
  778.       (set! Display.XStart "8")
  779.       (set! Display.Width "144")
  780.       (set! Display.YStart "60")
  781.       (set! Display.Height "212")))
  782.  
  783.   ;;
  784.   ;; Properties for Montezuma's Revenge
  785.   ;;
  786.   (if (member Cartridge.Id '("80a2714d"))
  787.     (begin
  788.       (set! Cartridge.Name "Montezuma's Revenge")
  789.       (set! Cartridge.Type "E0")
  790.       (set! Display.YStart "38")
  791.       (set! Display.Height "192")))
  792.  
  793.   ;;
  794.   ;; Properties for Mountain King
  795.   ;;
  796.   (if (member Cartridge.Id '("ce3d8002"))
  797.     (begin
  798.       (set! Cartridge.Name "Mountain King")
  799.       (set! Cartridge.Type "FASC")
  800.       (set! Display.XStart "16")
  801.       (set! Display.Width "128")
  802.       (set! Display.YStart "47")
  803.       (set! Display.Height "186")))
  804.  
  805.   ;;
  806.   ;; Properties for Ms. Pac-man
  807.   ;;
  808.   (if (member Cartridge.Id '("154f8d50"))
  809.     (begin
  810.       (set! Cartridge.Name "Ms. Pac-man")
  811.       (set! Cartridge.Type "F8")
  812.       (set! Display.YStart "35")
  813.       (set! Display.Height "195")))
  814.  
  815.   ;;
  816.   ;; Properties for No Escape!
  817.   ;;
  818.   (if (member Cartridge.Id '("d3dc580c"))
  819.     (begin
  820.       (set! Cartridge.Name "No Escape!")
  821.       (set! Cartridge.Type "4K")
  822.       (set! Display.YStart "44")
  823.       (set! Display.Height "190")))
  824.  
  825.   ;;
  826.   ;; Properties for Oink!
  827.   ;;
  828.   (if (member Cartridge.Id '("2846f3f5"))
  829.     (begin
  830.       (set! Cartridge.Name "Oink!")
  831.       (set! Cartridge.Type "4K")
  832.       (set! Display.FrameRate "30")
  833.       (set! Display.XStart "8")
  834.       (set! Display.Width "144")
  835.       (set! Display.YStart "42")
  836.       (set! Display.Height "194")))
  837.  
  838.   ;;
  839.   ;; Properties for Okie Dokie
  840.   ;;
  841.   (if (member Cartridge.Id '("68fbd2eb"))
  842.     (begin
  843.       (set! Cartridge.Name "Okie Dokie")
  844.       (set! Cartridge.Type "2K")
  845.       (set! Display.XStart "16")
  846.       (set! Display.Width "128")
  847.       (set! Display.YStart "30")
  848.       (set! Display.Height "178")))
  849.  
  850.   ;;
  851.   ;; Properties for Pac-man
  852.   ;;
  853.   (if (member Cartridge.Id '("34318172"))
  854.     (begin
  855.       (set! Cartridge.Name "Pac-man")
  856.       (set! Cartridge.Type "4K")
  857.       (set! Display.YStart "36")
  858.       (set! Display.Height "202")))
  859.  
  860.   ;;
  861.   ;; Properties for Pengo
  862.   ;;
  863.   (if (member Cartridge.Id '("2b8d8032"))
  864.     (begin
  865.       (set! Cartridge.Name "Pengo")
  866.       (set! Cartridge.Type "F8")
  867.       (set! Display.XStart "8")
  868.       (set! Display.Width "144")
  869.       (set! Display.YStart "35")
  870.       (set! Display.Height "196")))
  871.  
  872.   ;;
  873.   ;; Properties for Pete Rose Baseball
  874.   ;;
  875.   (if (member Cartridge.Id '("184a185c"))
  876.     (begin
  877.       (set! Cartridge.Name "Pete Rose Baseball")
  878.       (set! Cartridge.Type "F6")
  879.       (set! Display.XStart "8")
  880.       (set! Display.Width "152")
  881.       (set! Display.YStart "38")
  882.       (set! Display.Height "190")))
  883.  
  884.   ;;
  885.   ;; Properties for Pharaoh's Curse
  886.   ;;
  887.   (if (member Cartridge.Id '("4591f0bd"))
  888.     (begin
  889.       (set! Cartridge.Name "Pharaoh's Curse")
  890.       (set! Cartridge.Type "4K")
  891.       (set! Display.YStart "10")
  892.       (set! Display.Height "200")))
  893.  
  894.   ;;
  895.   ;; Properties for Phoenix
  896.   ;;
  897.   (if (member Cartridge.Id '("69c54c25"))
  898.     (begin
  899.       (set! Cartridge.Name "Phoenix")
  900.       (set! Cartridge.Type "F8")
  901.       (set! Display.YStart "38")
  902.       (set! Display.Height "188")))
  903.  
  904.   ;;
  905.   ;; Properties for Pitfall!
  906.   ;;
  907.   (if (member Cartridge.Id '("2e4e3800"))
  908.     (begin
  909.       (set! Cartridge.Name "Pitfall!")
  910.       (set! Cartridge.Type "4K")
  911.       (set! Display.XStart "4")
  912.       (set! Display.Width "152")
  913.       (set! Display.YStart "41")
  914.       (set! Display.Height "192")))
  915.  
  916.   ;;
  917.   ;; Properties for Polaris
  918.   ;;
  919.   (if (member Cartridge.Id '("5b5acf62"))
  920.     (begin
  921.       (set! Cartridge.Name "Polaris")
  922.       (set! Cartridge.Type "3F")
  923.       (set! Display.XStart "8")
  924.       (set! Display.Width "144")
  925.       (set! Display.YStart "62")
  926.       (set! Display.Height "210")))
  927.  
  928.   ;;
  929.   ;; Properties for Q*Bert
  930.   ;;
  931.   (if (member Cartridge.Id '("dc694850"))
  932.     (begin
  933.       (set! Cartridge.Name "Q*Bert")
  934.       (set! Cartridge.Type "4K")
  935.       (set! Display.XStart "4")
  936.       (set! Display.Width "152")
  937.       (set! Display.YStart "45")
  938.       (set! Display.Height "202")))
  939.  
  940.   ;;
  941.   ;; Properties for Q*Bert's Qubes
  942.   ;;
  943.   (if (member Cartridge.Id '("4ad8d3d0"))
  944.     (begin
  945.       (set! Cartridge.Name "Q*Bert's Qubes")
  946.       (set! Cartridge.Type "E0")
  947.       (set! Display.XStart "8")
  948.       (set! Display.Width "144")
  949.       (set! Display.YStart "32")
  950.       (set! Display.Height "210")))
  951.  
  952.   ;;
  953.   ;; Properties for Radar Lock
  954.   ;;
  955.   (if (member Cartridge.Id '("169966b3"))
  956.     (begin
  957.       (set! Cartridge.Name "Radar Lock")
  958.       (set! Cartridge.Type "F6SC")
  959.       (set! Display.YStart "42")
  960.       (set! Display.Height "185")))
  961.  
  962.   ;;
  963.   ;; Properties for Raiders of the Lost Ark
  964.   ;;
  965.   (if (member Cartridge.Id '("6f571082"))
  966.     (begin
  967.       (set! Cartridge.Name "Raiders of the Lost Ark")
  968.       (set! Cartridge.Type "F8")
  969.       (set! Display.YStart "37")
  970.       (set! Display.Height "192")
  971.       (set! Controller.Joystick0 "1")
  972.       (set! Controller.Joystick1 "0")))
  973.  
  974.   ;;
  975.   ;; Properties for Rampage!
  976.   ;;
  977.   (if (member Cartridge.Id '("3abfedd7"))
  978.     (begin
  979.       (set! Cartridge.Name "Rampage!")
  980.       (set! Cartridge.Type "F6")
  981.       (set! Display.XStart "12")
  982.       (set! Display.Width "136")
  983.       (set! Display.YStart "38")
  984.       (set! Display.Height "200")))
  985.  
  986.   ;;
  987.   ;; Properties for River Patrol
  988.   ;;
  989.   (if (member Cartridge.Id '("e0607f80"))
  990.     (begin
  991.       (set! Cartridge.Name "River Patrol")
  992.       (set! Cartridge.Type "3F")
  993.       (set! Display.YStart "40")
  994.       (set! Display.Height "192")))
  995.  
  996.   ;;
  997.   ;; Properties for River Raid
  998.   ;;
  999.   (if (member Cartridge.Id '("5a4039ca"))
  1000.     (begin
  1001.       (set! Cartridge.Name "River Raid")
  1002.       (set! Cartridge.Type "4K")
  1003.       (set! Display.YStart "36")
  1004.       (set! Display.Height "199")))
  1005.  
  1006.   ;;
  1007.   ;; Properties for RealSports Volleyball
  1008.   ;;
  1009.   (if (member Cartridge.Id '("cbb4f8d5"))
  1010.     (begin
  1011.       (set! Cartridge.Name "RealSports Volleyball")
  1012.       (set! Cartridge.Type "4K")
  1013.       (set! Display.XStart "8")
  1014.       (set! Display.Width "152")
  1015.       (set! Display.YStart "41")
  1016.       (set! Display.Height "192")))
  1017.  
  1018.   ;;
  1019.   ;; Properties for Secret Quest
  1020.   ;;
  1021.   (if (member Cartridge.Id '("11db5fd8"))
  1022.     (begin
  1023.       (set! Cartridge.Name "Secret Quest")
  1024.       (set! Cartridge.Type "F6SC")
  1025.       (set! Display.XStart "16")
  1026.       (set! Display.Width "128")
  1027.       (set! Display.YStart "42")
  1028.       (set! Display.Height "194")))
  1029.  
  1030.   ;;
  1031.   ;; Properties for Sentinel [requires a light gun :-(]
  1032.   ;;
  1033.   (if (member Cartridge.Id '("d1895cfa"))
  1034.     (begin
  1035.       (set! Cartridge.Name "Sentinel")
  1036.       (set! Cartridge.Type "F6")
  1037.       (set! Display.XStart "8")
  1038.       (set! Display.Width "144")
  1039.       (set! Display.YStart "46")
  1040.       (set! Display.Height "192")))
  1041.  
  1042.   ;;
  1043.   ;; Properties for Solar Storm
  1044.   ;;
  1045.   (if (member Cartridge.Id '("4754765d"))
  1046.     (begin
  1047.       (set! Cartridge.Name "Solar Storm")
  1048.       (set! Cartridge.Type "4K")
  1049.       (set! Display.XStart "8")
  1050.       (set! Display.Width "144")
  1051.       (set! Display.YStart "42")
  1052.       (set! Display.Height "190")
  1053.       (set! Controller.Joystick0 "None")
  1054.       (set! Controller.Joystick1 "None")
  1055.       (set! Controller.Paddle0 "0")
  1056.       (set! Controller.Paddle1 "0")))
  1057.  
  1058.   ;;
  1059.   ;; Properties for Solaris
  1060.   ;;
  1061.   (if (member Cartridge.Id '("0dcfa6bd"))
  1062.     (begin
  1063.       (set! Cartridge.Name "Solaris")
  1064.       (set! Cartridge.Type "F6")
  1065.       (set! Display.YStart "38")
  1066.       (set! Display.Height "193")))
  1067.  
  1068.   ;;
  1069.   ;; Properties for Space Invaders
  1070.   ;;
  1071.   (if (member Cartridge.Id '("eb063f70"))
  1072.     (begin
  1073.       (set! Cartridge.Name "Space Invaders")
  1074.       (set! Cartridge.Type "4K")
  1075.       (set! Display.YStart "42")
  1076.       (set! Display.Height "200")))
  1077.  
  1078.   ;;
  1079.   ;; Properties for Spider Fighter
  1080.   ;;
  1081.   (if (member Cartridge.Id '("b500b32b"))
  1082.     (begin
  1083.       (set! Cartridge.Name "Spider Fighter")
  1084.       (set! Cartridge.Type "4K")
  1085.       (set! Display.FrameRate "30")
  1086.       (set! Display.YStart "35")
  1087.       (set! Display.Height "202")))
  1088.  
  1089.   ;;
  1090.   ;; Properties for Spider Man
  1091.   ;;
  1092.   (if (member Cartridge.Id '("1eaf42e0"))
  1093.     (begin
  1094.       (set! Cartridge.Name "Spider Man")
  1095.       (set! Cartridge.Type "4K")
  1096.       (set! Display.FrameRate "30")
  1097.       (set! Display.XStart "8")
  1098.       (set! Display.Width "144")
  1099.       (set! Display.YStart "33")
  1100.       (set! Display.Height "200")))
  1101.  
  1102.   ;;
  1103.   ;; Properties for Springer
  1104.   ;;
  1105.   (if (member Cartridge.Id '("b1c40cef"))
  1106.     (begin
  1107.       (set! Cartridge.Name "Springer")
  1108.       (set! Cartridge.Type "3F")
  1109.       (set! Display.YStart "36")
  1110.       (set! Display.Height "202")))
  1111.  
  1112.   ;;
  1113.   ;; Properties for Sprint Master
  1114.   ;;
  1115.   (if (member Cartridge.Id '("94a4ea29"))
  1116.     (begin
  1117.       (set! Cartridge.Name "Sprint Master")
  1118.       (set! Cartridge.Type "F6SC")
  1119.       (set! Display.XStart "8")
  1120.       (set! Display.Width "144")
  1121.       (set! Display.YStart "27")
  1122.       (set! Display.Height "192")))
  1123.  
  1124.   ;;
  1125.   ;; Properties for Spy Hunter
  1126.   ;;
  1127.   (if (member Cartridge.Id '("e5dfbe5d"))
  1128.     (begin
  1129.       (set! Cartridge.Name "Spy Hunter")
  1130.       (set! Cartridge.Type "F8")
  1131.       (set! Display.YStart "32")
  1132.       (set! Display.Height "200")
  1133.       (set! TIA.PlayerDelay "0")))
  1134.  
  1135.   ;;
  1136.   ;; Properties for Stampede
  1137.   ;;
  1138.   (if (member Cartridge.Id '("0cbbdfe8"))
  1139.     (begin
  1140.       (set! Cartridge.Name "Stampede")
  1141.       (set! Cartridge.Type "2K")
  1142.       (set! Display.XStart "8")
  1143.       (set! Display.Width "144")
  1144.       (set! Display.YStart "38")
  1145.       (set! Display.Height "192")))
  1146.  
  1147.   ;;
  1148.   ;; Properties for Star Wars: The Arcade Game
  1149.   ;;
  1150.   (if (member Cartridge.Id '("2ca40acd"))
  1151.     (begin
  1152.       (set! Cartridge.Name "Star Wars: The Arcade Game")
  1153.       (set! Cartridge.Type "E0")
  1154.       (set! Display.XStart "8")
  1155.       (set! Display.Width "144")
  1156.       (set! Display.YStart "39")
  1157.       (set! Display.Height "184")))
  1158.  
  1159.   ;;
  1160.   ;; Properties for Star Wars: Return of the Jedi, Death Star Battle
  1161.   ;;
  1162.   (if (member Cartridge.Id '("e9422fb1"))
  1163.     (begin
  1164.       (set! Cartridge.Name "Star Wars: Return of the Jedi, Death Star Battle")
  1165.       (set! Cartridge.Type "E0")
  1166.       (set! Display.FrameRate "30")
  1167.       (set! Display.XStart "8")
  1168.       (set! Display.Width "144")
  1169.       (set! Display.YStart "35")
  1170.       (set! Display.Height "200")))
  1171.  
  1172.   ;;
  1173.   ;; Properties for Star Wars: The Empire Strikes Back
  1174.   ;;
  1175.   (if (member Cartridge.Id '("9dadfb1c"))
  1176.     (begin
  1177.       (set! Cartridge.Name "Star Wars: The Empire Strikes Back")
  1178.       (set! Cartridge.Type "4K")
  1179.       (set! Display.YStart "41")
  1180.       (set! Display.Height "188")))
  1181.  
  1182.   ;;
  1183.   ;; Properties for Star Wars: Jedi Arena
  1184.   ;;
  1185.   (if (member Cartridge.Id '("155f9f0a"))
  1186.     (begin
  1187.       (set! Cartridge.Name "Star Wars: Jedi Arena")
  1188.       (set! Cartridge.Type "4K")
  1189.       (set! Display.XStart "8")
  1190.       (set! Display.Width "144")
  1191.       (set! Display.YStart "31")
  1192.       (set! Display.Height "199")
  1193.       (set! Controller.Joystick0 "None")
  1194.       (set! Controller.Joystick1 "None")
  1195.       (set! Controller.Paddle0 "1")
  1196.       (set! Controller.Paddle1 "0")))
  1197.  
  1198.   ;;
  1199.   ;; Properties for Star Voyager
  1200.   ;;
  1201.   (if (member Cartridge.Id '("7726eaee"))
  1202.     (begin
  1203.       (set! Cartridge.Name "Star Voyager")
  1204.       (set! Cartridge.Type "4K")
  1205.       (set! Display.XStart "8")
  1206.       (set! Display.Width "144")
  1207.       (set! Display.YStart "38")
  1208.       (set! Display.Height "192")))
  1209.  
  1210.   ;;
  1211.   ;; Properties for Summer Games
  1212.   ;;
  1213.   (if (member Cartridge.Id '("9a04c597"))
  1214.     (begin
  1215.       (set! Cartridge.Name "Summer Games")
  1216.       (set! Cartridge.Type "F6")
  1217.       (set! Display.FrameRate "30")
  1218.       (set! Display.YStart "42")
  1219.       (set! Display.Height "200")))
  1220.  
  1221.   ;;
  1222.   ;; Properties for Super Breakout
  1223.   ;;
  1224.   (if (member Cartridge.Id '("e35776bb"))
  1225.     (begin
  1226.       (set! Cartridge.Name "Super Breakout")
  1227.       (set! Cartridge.Type "4K")
  1228.       (set! Display.FrameRate "30")
  1229.       (set! Display.XStart "8")
  1230.       (set! Display.Width "136")
  1231.       (set! Display.YStart "35")
  1232.       (set! Display.Height "180")
  1233.       (set! Controller.Joystick0 "None")
  1234.       (set! Controller.Joystick1 "None")
  1235.       (set! Controller.Paddle0 "0")
  1236.       (set! Controller.Paddle1 "0")))
  1237.  
  1238.   ;;
  1239.   ;; Properties for Super Football
  1240.   ;;
  1241.   (if (member Cartridge.Id '("0e32a80c"))
  1242.     (begin
  1243.       (set! Cartridge.Name "Super Football")
  1244.       (set! Cartridge.Type "F6SC")
  1245.       (set! Display.XStart "4")
  1246.       (set! Display.Width "152")
  1247.       (set! Display.YStart "42")
  1248.       (set! Display.Height "182")))
  1249.  
  1250.   ;;
  1251.   ;; Properties for Superman
  1252.   ;;
  1253.   (if (member Cartridge.Id '("02218a18" "02188a13"))
  1254.     (begin
  1255.       (set! Cartridge.Name "Superman")
  1256.       (set! Cartridge.Type "4K")
  1257.       (set! Display.YStart "38")
  1258.       (set! Display.Height "192")))
  1259.  
  1260.   ;;
  1261.   ;; Properties for Tac-Scan
  1262.   ;;
  1263.   (if (member Cartridge.Id '("bfc2a0b6"))
  1264.     (begin
  1265.       (set! Cartridge.Name "Tac-Scan")
  1266.       (set! Cartridge.Type "4K")
  1267.       (set! Display.FrameRate "60")
  1268.       (set! Display.XStart "8")
  1269.       (set! Display.Width "152")
  1270.       (set! Display.YStart "44")
  1271.       (set! Display.Height "202")
  1272.       (set! Controller.Joystick0 "None")
  1273.       (set! Controller.Joystick1 "None")
  1274.       (set! Controller.Paddle0 "0")
  1275.       (set! Controller.Paddle1 "0")
  1276.       (set! Controller.Paddle2 "0")
  1277.       (set! Controller.Paddle3 "0")))
  1278.  
  1279.   ;;
  1280.   ;; Properties for Tennis
  1281.   ;;
  1282.   (if (member Cartridge.Id '("fa46ebea"))
  1283.     (begin
  1284.       (set! Cartridge.Name "Tennis")
  1285.       (set! Cartridge.Type "2K")
  1286.       (set! Display.FrameRate "30")
  1287.       (set! Display.YStart "39")
  1288.       (set! Display.Height "200")))
  1289.  
  1290.   ;;
  1291.   ;; Properties for The Challenge of ... Nexar 
  1292.   ;;
  1293.   (if (member Cartridge.Id '("a3e84f6e"))
  1294.     (begin
  1295.       (set! Cartridge.Name "The Challenge of ... Nexar")
  1296.       (set! Cartridge.Type "4K")
  1297.       (set! Display.XStart "4")
  1298.       (set! Display.Width "152")
  1299.       (set! Display.YStart "36")
  1300.       (set! Display.Height "195")))
  1301.  
  1302.   ;;
  1303.   ;; Properties for Tron Deadly Discs 
  1304.   ;;
  1305.   (if (member Cartridge.Id '("8bc850a0"))
  1306.     (begin
  1307.       (set! Cartridge.Name "Tron Deadly Discs")
  1308.       (set! Cartridge.Type "4K")
  1309.       (set! Display.XStart "8")
  1310.       (set! Display.Width "144")
  1311.       (set! Display.YStart "53")
  1312.       (set! Display.Height "162")))
  1313.  
  1314.   ;;
  1315.   ;; Properties for Tunnel Runner
  1316.   ;;
  1317.   (if (member Cartridge.Id '("37f268a9"))
  1318.     (begin
  1319.       (set! Cartridge.Name "Tunnel Runner")
  1320.       (set! Cartridge.Type "FASC")
  1321.       (set! Display.FrameRate "20")
  1322.       (set! Display.YStart "67")
  1323.       (set! Display.Height "153")))
  1324.  
  1325.   ;;
  1326.   ;; Properties for Turmoil
  1327.   ;;
  1328.   (if (member Cartridge.Id '("387ab0b9"))
  1329.     (begin
  1330.       (set! Cartridge.Name "Turmoil")
  1331.       (set! Cartridge.Type "4K")
  1332.       (set! Display.FrameRate "30")
  1333.       (set! Display.YStart "52")
  1334.       (set! Display.Height "186")))
  1335.  
  1336.   ;;
  1337.   ;; Properties for Vanguard
  1338.   ;;
  1339.   (if (member Cartridge.Id '("83d1f142"))
  1340.     (begin
  1341.       (set! Cartridge.Name "Vanguard")
  1342.       (set! Cartridge.Type "F8")
  1343.       (set! Display.YStart "37")
  1344.       (set! Display.Height "194")))
  1345.  
  1346.   ;;
  1347.   ;; Properties for Video Chess
  1348.   ;;
  1349.   (if (member Cartridge.Id '("6b335d68"))
  1350.     (begin
  1351.       (set! Cartridge.Name "Video Chess")
  1352.       (set! Cartridge.Type "4K")
  1353.       (set! Display.XStart "16")
  1354.       (set! Display.Width "128")
  1355.       (set! Display.YStart "37")
  1356.       (set! Display.Height "194")))
  1357.  
  1358.   ;;
  1359.   ;; Properties for Video Olympics
  1360.   ;;
  1361.   (if (member Cartridge.Id '("ff25b330"))
  1362.     (begin
  1363.       (set! Cartridge.Name "Video Olympics")
  1364.       (set! Cartridge.Type "2K")
  1365.       (set! Display.YStart "30")
  1366.       (set! Display.Height "205")
  1367.       (set! Controller.Joystick0 "None")
  1368.       (set! Controller.Joystick1 "None")
  1369.       (set! Controller.Paddle0 "0")
  1370.       (set! Controller.Paddle1 "0")))
  1371.  
  1372.   ;;
  1373.   ;; Properties for Warlords
  1374.   ;;
  1375.   (if (member Cartridge.Id '("3834b93a"))
  1376.     (begin
  1377.       (set! Cartridge.Name "Warlords")
  1378.       (set! Cartridge.Type "4K")
  1379.       (set! Display.YStart "37")
  1380.       (set! Display.Height "194")
  1381.       (set! Controller.Joystick0 "None")
  1382.       (set! Controller.Joystick1 "None")
  1383.       (set! Controller.Paddle0 "0")
  1384.       (set! Controller.Paddle1 "1")
  1385.       (set! Controller.Paddle2 "2")
  1386.       (set! Controller.Paddle3 "3")))
  1387.  
  1388.   ;;
  1389.   ;; Properties for Communist Mutants
  1390.   ;;
  1391.   (if (member Cartridge.Id '("bcc270e5"))
  1392.     (begin
  1393.       (set! Cartridge.Name "Communist Mutants")
  1394.       (set! Cartridge.Type "AR")
  1395.       (set! M6507.Compatibility "High")
  1396.       (set! Display.XStart "8")
  1397.       (set! Display.Width "144")
  1398.       (set! Display.YStart "38")
  1399.       (set! Display.Height "196")))
  1400.  
  1401.   ;;
  1402.   ;; Properties for Dragonstomper
  1403.   ;;
  1404.   (if (member Cartridge.Id '("0d053d97"))
  1405.     (begin
  1406.       (set! Cartridge.Name "Dragonstomper")
  1407.       (set! Cartridge.Type "AR")
  1408.       (set! M6507.Compatibility "High")
  1409.       (set! Display.XStart "8")
  1410.       (set! Display.Width "144")
  1411.       (set! Display.YStart "39")
  1412.       (set! Display.Height "189")))
  1413.  
  1414.   ;;
  1415.   ;; Properties for Escape from the Mindmaster
  1416.   ;;
  1417.   (if (member Cartridge.Id '("c0ec0c97"))
  1418.     (begin
  1419.       (set! Cartridge.Name "Escape from the Mindmaster")
  1420.       (set! Cartridge.Type "AR")
  1421.       (set! M6507.Compatibility "High")
  1422.       (set! Display.XStart "8")
  1423.       (set! Display.Width "144")
  1424.       (set! Display.YStart "36")
  1425.       (set! Display.Height "192")))
  1426.  
  1427.   ;;
  1428.   ;; Properties for Fireball
  1429.   ;;
  1430.   (if (member Cartridge.Id '("0658f76f"))
  1431.     (begin
  1432.       (set! Cartridge.Name "Fireball")
  1433.       (set! Cartridge.Type "AR")
  1434.       (set! M6507.Compatibility "High")
  1435.       (set! Display.XStart "8")
  1436.       (set! Display.Width "136")
  1437.       (set! Display.YStart "32")
  1438.       (set! Display.Height "200")
  1439.       (set! Controller.Joystick0 "None")
  1440.       (set! Controller.Joystick1 "None")
  1441.       (set! Controller.Paddle0 "0")
  1442.       (set! Controller.Paddle1 "0")
  1443.       (set! Controller.Paddle2 "0")
  1444.       (set! Controller.Paddle3 "0")))
  1445.  
  1446.   ;;
  1447.   ;; Properties for Supercharger Frogger
  1448.   ;;
  1449.   (if (member Cartridge.Id '("ad961080"))
  1450.     (begin
  1451.       (set! Cartridge.Name "Supercharger Frogger")
  1452.       (set! Cartridge.Type "AR")
  1453.       (set! M6507.Compatibility "High")
  1454.       (set! Display.XStart "8")
  1455.       (set! Display.Width "152")
  1456.       (set! Display.YStart "33")
  1457.       (set! Display.Height "205")))
  1458.  
  1459.   ;;
  1460.   ;; Properties for Killer Satellites
  1461.   ;;
  1462.   (if (member Cartridge.Id '("5a1b7ea1"))
  1463.     (begin
  1464.       (set! Cartridge.Name "Killer Satellites")
  1465.       (set! Cartridge.Type "AR")
  1466.       (set! M6507.Compatibility "High")
  1467.       (set! Display.XStart "8")
  1468.       (set! Display.Width "152")
  1469.       (set! Display.YStart "36")
  1470.       (set! Display.Height "192")))
  1471.  
  1472.   ;;
  1473.   ;; Properties for Party Mix
  1474.   ;;
  1475.   (if (member Cartridge.Id '("3cf1a71b"))
  1476.     (begin
  1477.       (set! Cartridge.Name "Party Mix")
  1478.       (set! Cartridge.Type "AR")
  1479.       (set! M6507.Compatibility "High")
  1480.       (set! Display.XStart "0")
  1481.       (set! Display.Width "160")
  1482.       (set! Display.YStart "34")
  1483.       (set! Display.Height "192")))
  1484.  
  1485.   ;;
  1486.   ;; Properties for Phasor Patrol
  1487.   ;;
  1488.   (if (member Cartridge.Id '("f4328d17"))
  1489.     (begin
  1490.       (set! Cartridge.Name "Phasor Patrol")
  1491.       (set! Cartridge.Type "AR")
  1492.       (set! M6507.Compatibility "High")
  1493.       (set! Display.XStart "8")
  1494.       (set! Display.Width "144")
  1495.       (set! Display.YStart "34")
  1496.       (set! Display.Height "192")))
  1497.  
  1498.   ;;
  1499.   ;; Properties for Rabbit
  1500.   ;;
  1501.   (if (member Cartridge.Id '("2d5ab967"))
  1502.     (begin
  1503.       (set! Cartridge.Name "Rabbit")
  1504.       (set! Cartridge.Type "AR")
  1505.       (set! M6507.Compatibility "High")
  1506.       (set! Display.XStart "8")
  1507.       (set! Display.Width "152")
  1508.       (set! Display.YStart "34")
  1509.       (set! Display.Height "198")))
  1510.  
  1511.   ;;
  1512.   ;; Properties for Suicide Mission
  1513.   ;;
  1514.   (if (member Cartridge.Id '("4964d1de"))
  1515.     (begin
  1516.       (set! Cartridge.Name "Suicide Mission")
  1517.       (set! Cartridge.Type "AR")
  1518.       (set! M6507.Compatibility "High")
  1519.       (set! Display.XStart "8")
  1520.       (set! Display.Width "144")
  1521.       (set! Display.YStart "38")
  1522.       (set! Display.Height "172")))
  1523.  
  1524.   ;;
  1525.   ;; Properties for Survival Island
  1526.   ;;
  1527.   (if (member Cartridge.Id '("c0825899"))
  1528.     (begin
  1529.       (set! Cartridge.Name "Survival Island")
  1530.       (set! Cartridge.Type "AR")
  1531.       (set! M6507.Compatibility "High")
  1532.       (set! Display.YStart "38")
  1533.       (set! Display.Height "200")))
  1534.  
  1535.   ;;
  1536.   ;; Properties for Sword of Saros
  1537.   ;;
  1538.   (if (member Cartridge.Id '("352dea96"))
  1539.     (begin
  1540.       (set! Cartridge.Name "Sword of Saros")
  1541.       (set! Cartridge.Type "AR")
  1542.       (set! M6507.Compatibility "High")
  1543.       (set! Display.XStart "8")
  1544.       (set! Display.Width "144")
  1545.       (set! Display.YStart "35")
  1546.       (set! Display.Height "200")))
  1547.  
  1548.   ;;
  1549.   ;; Properties for Brad's stupid little TEST.BIN
  1550.   ;;
  1551.   (if (member Cartridge.Image '("TEST.BIN" "test.bin"))
  1552.     (begin
  1553.       (set! Cartridge.Name "Brad's Test Program")
  1554.       (set! Cartridge.Type "4K")
  1555.       (set! Display.YStart "35")
  1556.       (set! Display.Height "192")))
  1557. )
  1558. "
  1559.